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As everyone probably noticed, the listing in issue #1 had a few 

0' :i ; 

errors relating to lacking greater-than and less-than signs. Certain j^Vyc 

lines in the program should be altered. I will use a to represent^* 

. '3i‘ * ’ 

a greater-than sign and a 'V for a less-than sign. Correct as foIlqwp<r 

210 IF L0C+64 @ -2049 THEN RETURN 
310 IF LOC-t t -3968 THEN RETURN 
410 IF LOC+1 @ -2049 THEN RETURN 
510 IF LOC-64 <t -3968 THEN RETURN 


'S H ZZ 






Also pertaining to errors, several of you noticed that the correct 


*• ■ 




locations for the USR function addresses are not 259 and 260, but 260: 

and 261, These are the numbers given in the finished Sorcerer Technical' T 

- - 

Manual , which is now in print and available for $11.95 from your local 
computer store. '£ 


-■‘ V C 

My thanks to Bob Bachman and his printer in Lansing, Michigan£::.l^v£;^t 


I will be able to provide clear, error-free listings. 
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My original ad in ON LINE has only drawn about 30 responses so fair. X** 

*"• ••• •'*. V* W 1 w 

although they still keep coming in. The August issue of Kilobaud MicrO- C'l ? 
computing has a letter that I sent inj this should generate some re— 
sponse also. My aim is to reach all users, or at least to let them p- ^ 
be aware of our presence. One easy way of reaching others easily "that ~ f 'X 
I have "discovered” is to place copies of this newsletter in computer 
stores (with the owners permission, of course). Actually, this helps 
us in more ways than one. Sorcerer owners will be pleased to see that 


The Sorcerer's Apprentice is published by Dave Bristor, 1530 Washtenaw, 
Ann Arbor, MI, 48104, For free copies, send an 3ASE approximately 
every month and a half. 




- yes, some people are communicating ideas, and prospective buyers may 
be more likely to purchase a Sorcerer if they know that an information 
exchange does exist. Hopefully, both the user and buyer will contact 
me. I have given copies to the stores in my area, so how about you? 

You may well just come away from the store knowing more than when you 
walked in (I certainly did), and friends in computer stores never hurt 
anybody. If you think you can use some copies, whether to place in 
a store, for friends or for that other computer club, let me know 
how many you need and I'll get them out to you right away. 

RUMORS AND NEWS ABOUT SXIDY 

Do you still read ON_LINE? Then you probably already know about 
Exidy's latest releases. If not, then you can read about them here. 

Two new ROM PAC's are available- the WORD PROCESSOR and the DEVELOP¬ 
MENT PAC, and there is a VIDEO/DISK attachment. The Video/Disk unit 
houses a 12 ” video display using P31 phosphor and having a bandwidth 
of 20 MHz for clear pictures. Also included is a dual mini-floppy 
disk drive with a data storage capacity of 63 OK bytes. Software 
^included in the package includes CP/M, Z-80 assembler, text editor, 

< linking loader, and Microsoft Disk Extended BASIC. All for only $2995* 

The Word Processing Pac will support either a modified Selectric or 
the Diablo/Qume proportional output printers. Either a cassette recor- 
_der or a mini-floppy may be used for storage. The Edit mode allows 
full cursor control, Insert/Delete, Scan, Tab, Indent, Hyphen, Macros, 
pagination and titling. The Command mode has standard word processor 
functions, tape merge with memory, line length set, printer option set, 
string search, and display of unused space. File names may be up to 8 
characters. Price $99* 

;• Development PAC software includes a two pass Z-80 assembler, a 
text editor, and a debugger. The assembler's I/O can be vectored to 
any device driver within the Sorcerer, source and object code can be 
spooled to accomodate programs of infinite length, and absolute assem¬ 
blies and pseudo operators are supplied. The editor is line oriented, 
allowing forward cursor positioning, line insert and delete, spooling, 
and source code I/O to any device. The debugger can display and/or 
modify any register or RAM location and set breakpoints. Available 
* 5 <for $99. For more info, contact Exidy directly. 


Now for those rumors I promised. Exidy has not verified these, but 
I believe my sources to be reliable enough to print what follows. 

An extended BASIC more powerful than Radio Shack's Level II will 
be available in the near future on cassette. This will be Microsoft's 
newest BASIC; it will include verbs to manipulate graphics, have long 
variable names, and other niceties. 

The upcoming color graphics board will be bit by bit programmable 
and provide for a 256 by 256 display, expandable to 512 by 512. Note 
that even the low resolution mode has a higher resolution than the 
APPLE-II's high resolution mode. This should make for some beautiful 
displays. 

PROGRAM EXCHANGE 

No, not yet, but coming soon with your help. Everyone would be 
able to benefit from a cassette software exchange, and I'd like to 
see one going as soon as possible. I still want to publish listings; 
they are generally easier for me to follow than the video. Typing in 
lines is a real pain, however, and haxd-to-find mistakes always seem 7 to 
creep in. Microcomputing is supposed to be a fun hobby, not a tedious 
one. To that end, I think a free or inexpensive exchange should be set 
up. Notice please that I said that it should be set up, not that I can 
set it up. School still has first priority over my time, and most of 
my spare time goes to this newsletter in one way or another. I'd really 
like to hear from anyone else interested in performing this service-. 

Who knows? You may even make some money doing it. Please, anybody 
with ideas, let me know what we can do. 

WE ARE NOT ALONE .... 

In the user's group buisness, that is. Two other user's groups 
have come to my attention in recent weeks. One is sponsored by the 
Computer Mart of Waltham, Massachusets. You can write them at v- 
Computer Mart Waltham, 1395 Main Street, Waltham, Mass., 0215*+• I am 
sending a copy of this issue and a letter of introduction to them;~i-'ll 
tell you more about their activities in the next issue. 

The other group to come to my attention is run by Steve Long, -792 
Laurie Ave., Santa Clara, CA, 95050* Steve publishes the Sorceref -' 
User's Newsletter 12 times a year; subscriptions run for $10. Sample 
issues are available for the price of an SASS. Steve sent me a copy of 



his May issue which included articles on a printer driver in Basic, some 
digital to analog conversion techniques, and information regarding the 
use and operation of some programs just added to his software library. 
Steve's program already has 69 programs available for $4 apiece. He is 
also a dealer for Exidy products. 


FILES AND YOUR SORCERER 

The Sorcerer's standard has provisions for saving, from within 
a program, numerical arrays using CSAVE* and CLOAD*. These are great 
if you want to write a checkbook handling program, but not much good 
if you want to maintain an address list or phone book on tape. Of 
course, since a computer can do virtually anything, saving and reading 
character records (or arrays) is possible, but it has to be done in a 
somewhat roundabout way. I have managed to fairly successfully read 
and save character strings using the ordinary PRINT and INPUT state¬ 
ments after changing the input and output vectors from within a pro¬ 
gram. This is similar to issuing the command SE 0=S from within the 
running program, and then resetting it with SE 0=V, also from the 
running program. Once again, I have used the USR function to accomplish 
this, along with some simple machine language programming. I use 
,;jthe following routines to change the output and input with the USR 
function: 


Change 

output from 

video 

to tape- 

0000 

11 12 E0 

LD 

DE,0UTAPE 

0003 

FD 73 3F 

LD 

(lY+OUTADD),E 

0006 

FD 72 40 

LD 

(IY+OUTADD+1), D 

0009 

C9 

RET 


Change 

output from 

tape to video- 

0010 

11 IB E0 

LD 

DE,VIDEO 

0013 

FD 73 3F 

LD 

(IY+OU.TADD) ,E 

0016 

FD 72 40 

LD 

(IY+OUTADD+I),D 

0019 

C9 

RET 


Change 

input from 

keyboard to tape- 

0020 

11 OF E0 

LD 

DE,INTAPE 

0023 

FD 73 41 

LD 

(IY+INADD),E 

0026 

FD 72 42 

LD 

(IY+INADD+I),D 

0029 

C9 

RET 


Change 

input from 

tape to keyboard- 

0030 

11 18 EO 

LD 

DE,KEYBRD 

0033 

FD 73 41 

LD 

(IY+INADD),E 

0036 

FD 72 42 

LD 

(IY+INADD+1),D 

0039 

C9 

RET 



The following program uses the routines to print a character string 
to the tape unit and then read it backs 
10 INPUT "TYPE A STRING";A$ 

20 PRINT:PRINT "PUT A CASSETTE IN THE RECORDER, 

30 PRINT "START RECORDING AND ALLOW THE LEADER TO PASS 
40 INPUT "HIT RETURN WHEN READY";XX$ 

50 POKE 260,0:POKE 261,0 
60 XX=USR(0) 

70 PRINT "" 

80 PRINT AS 
90 POKE 260,16 
100 XX=USR(0) 

110 CLEAR 50:REM NULL ALL VARIABLES 

120 PRINT:PRINT 'YOUR STRING HAS BEEN SAVED ON TAPE 

130 PRINT "AND ITS VALUE IN THE VARIABLE A$ DESTROYED 

140 PRINT:PRINT "TO RELOAD THE STRING, REWIND THE TAPE 

150 PRINT "AND PRESS PLAY 

160 INPUT "HIT RE1URN WHEN READY";XX$ 

170 POKE 260,32:POKE 261,0 
180 XX=USR(0) 

190 INPUT XX$ 

200 INPUT A$ 

210 A$=RIGHT$(A$,LEN(A$)-1) 

220 POKE 260,48 
230 XX=USR(0) 

240 PRINT:PRINT "THE STRING SAVED ON TAPE IS 
250 PRINT A$ 

Line 70 is apparently necessary to initialize the INPUT statements 
so that the actual string is read back in instead of garbage on the tape. 
While in the input section of the program, you will see question marks 
printed on the screen as well as the garbage and the string itself. To 

prevent this from happening in a program, the output can be routed to 

the tape unit as well; this won't interfere with program performance, 
but will keep the question marks and garbage and strings from appearing 
on the screen. 

Line 210 is used to chop off the first character of the INPUT 

string. For some reason unknown to me, the first character of the 

string is a CHR$(10), or a line-feed. I can only assume that this has 
to do with the way the PRINT statement operates. 

I have used this i/o changing technique with some degree of success 
in a small address list handling program. Hopefully the program will 
be perfected in time for the next issue. 




PROGRAMS OF THE MONTH 


RACETRACK 

contributed try Marvin Weingast 

From Marvin: "This program is similar to the one published in 
issue #i except that the machine language subroutine, which is a little 
different from yours, is inside a FOR-NEXT loop. This allows the mo¬ 
ving spot, in this case a blinking star, to be moving all the time. 

The rate of blinking or the speed of the star can be changed with mi¬ 
nor programming changes. 

"The object of the game is to maneuver the star around the track, 
or alternatively to erase the track borcers using the star. 

"To start the motion of the star press 2, 4, 6, or 8, which con¬ 
trol the direction in the same manner as your program. Press 2, 4, 6, 
or 8 to change the direction. To stop press 5«" 

LUNAR LANDER 

contributed by Bob Bachman 

Lunar Lander is one of the truly classic computer games, second 
only to Startrek in use. Bob's version not only provides the captain 
with the usual velocity, distance, and fuel remaining statistics, but 
it gives him a graphical display of his distance from the lunar surface. 
Give your friends a try at this one, then try to keep them away. 

CRAPS 

contributed by yours truly 

I dug this one out of my high school senior scrapbook. It was a 
project for my first ever computer class, I wrote it three years 
ago, but have since refined it somewhat. 

As with all the programs I present, I like to bring in something 
new if at all possible. This program uses the statement PRINT CHR$(X) 
to control the position of the cursor. The following table gives the 
various values to move the cursor: 

1 - cursor left 
12 - clear screen 
17 - cursor home 
19 - cursor right 
23 - cursor up 
26 - cursor down 

You will probably want to use the controls with PRINT CHR$(X);. 

Note that semi-colon! It is not a typo, and if you leave it off when 
trying to position the cursor (right, left, up, down) you may not get 



i 



the results you want. I'll leave you with this to play around with 
and learn about on your own. 

MORE MISCELLANEOUS 

Otto Borufsen of Sor-Audnedal, Norway, is our first international 
member. Congratulations, Otto. 

I am working on some hardware-software designs for a beeper, a pair 
of joysticks, and a light pen. I will print schematics and full info 
as soon as any of them are finished. Hopefully, this will be in the 
next issue. 

Kilobaud-Microcomputing has published a letter I sent them about 
seeking more members, and it is working. I am receiving several re¬ 
quests daily. My personal thanks to KB. 

More material is needed for printing, as is almost always the case. 
Almost anything is acceptable: book reviews, hardware reviews, soft¬ 
ware, indeed, anything pertaining to the use of a Sorcerer. Let's 
all help each other! 

Hois issue looks like about eight pages as of now. For now, I 
can and will absorb printing and special mailing costs, but if this 
newsletter grows the way I would like it to, I will have to start 
charging for subscriptions eventually. I would appreciate your views 
on this subject, i.e. what you think would be reasonable, should the 
format be changed to fit more on a page, should I take in advertise¬ 
ments, etc., etc. I'd like to hear from you . 




The following was contributed by Terry Calvert: 

CROSS REFERENCE BETWEEN EXIDY SORCERER AND TRS-80: Expansion Interface Jack 


Function Exidy Pin § 

TRS-80 Pin M 

DATA 0 

37 

30 

1 

4/ 

22 

2 

39 

32 

3 

42 

26 

4 

41 

18 

5 

44 

28 

6 

43 

24 

7 

46 

20 

ADDR 0 

29 

25 

1 

32 

27 

2 

31 

40 

3 

34 

34 

4 

33 

31 

n 

36 

35 

6 

35 

38 

7 

38 

36 

8 

21 

11 

9 

24 

17 

10 

23 

4 

11 

26 

Q 

y 

12 

30 

5 

13 

27 

6 

14 

28 

10 

15 

25 

7 

Clock 0 1 

10 


0 2 

13 


PRESET 

1 


INT 

2 

14 

MI 

16 

21 

WAIT 

”3 

J 

33 

Data 3uss 

4 


BUSS REQUEST 

5 


NMI 

6 


BUSS ACK 

7 


BUSS DIRECTION 

RAM CONTROL: 

8 

23 

RAH DRIVER 

9 


REFRESH 

19 


RD 

17 

15 

UR 

20 

13 

MUX 


16 

HAS 


1 

CAS 


3 

M REQ 

15 


U.P. 8K 

14 


ROM PRE 

11 


I/O 

46 

12 

19 

l70 REQUEST 

18 


RESET 

45 

2 

HALT 

22 


+5V. 


39 

GND 

49,50 

8,29,37 

Unused 

47 




Comment 


( 


% 

t 


TRS; INTA K- Interrupt Ack output 

INT = Interrupt input Maskable 
Processor wait for memory 
Exidy ; 

Exidy; Nonmaskable interrupt 
determines input/output direction 


Exidy; also RCK ENABLE 

Memory Read Strobe 
Memory write strobe 
Multiplexor control for dynamic Rams 
Row address strobe " " " 

Column address strobe " " " 


TRS; CUT 3 Peripheral write strobe out 
IN = Peripheral read strobe out 

Exidy; Pin 12- RESET ACK 


Thanks to Marvin Weingast: Part One of a Five Part Senes- 
A SHORT TOUR OF BASIC—ERATA 

22 Mar 79 

p.7,line 23 Add sentence: [ESC] by itself works the same as 

[RUN/STOP]. 

p.13,line 5 Replace: "A=A+1” 

By: "A is equal to A+1". 

p.60,line 15 Replace: ...to stimulate dice. 

By: ...to simulate dice, 

p. 64,line 1 Add line: 

60 PRINT B$ 


p. 69 


p.71,lines 

8 and 9 


Add section: String Space 
(see below) 

Replace: ORANGE? 


By: 


URANGE? 


Note that ORANGE? is not a legal name, since it 
contains the reserved word OR. 


p. A-1 


after 
p. G-2 


Add: 


RIGHT? 

STEP 


Add Appendix H: 
(see below) 


The function USR(X) 


(L2) 


String space 


String space is the total amount of memory 

which Standard BASIC reserves for strings, string variables, 

and string arrays. Normally this is 50 bytes (characters); if 
the total number of characters in all your string constants, 

variables, and arrays is more then 50/ you will get an OS error 

message. (.In fact, you will get the OS message even sooner, 

since Standard BASIC uses some of the string space for its 

own purposes.) 
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PART 2 


Example: 

10 FOR X=1 TO 100 
20 PRINT X, 

30 LET A$=A$+"A" 

40 PRINT A$ 

50 NEXT 

This program will produce an OS error at X=26. 


To reserve more string space, use the command 
CLEAR <numerical expression>. 

When Sorcerer sees this command, it first evaluates the expres¬ 
sion and then reserves string space. 

Examples: — “ — 

This command produces this much string space 

CLEAR 100 100 bytes 

CLEAR 999 999 bytes 

the number of spaces 
equal to the value 
of X+Y. 


CLEAR X+Y 
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10 PR IMTCHRS(12) 

20 PRINT"- LUNAR LANDING SIMULATION --" 

30 PRIMT:PR I NT 

40 PRINT:INPUT"DO YOU WANT IN STRUCTfflNS" :9$:PRINT 
50 IF Q$ =”N" THEN 270 
60 PRINT 
70 PRINT 

30 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL 

it 

90 PRINT"CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE a” 
100 PRTNT"DOWMVARD VELOCITY OF 50 FT/SEC. 150 UNITS 0® fuel REMA 
IN." 

110 PRINT 

120 PRIMT"HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:" 

130 PR I NT" ( 1 ) AFTER EACH SECOND, T^E HEIGHT, VELOCITY, AND REM AI 
MING" 

140 PRINT" FUEL WILL BE REPORTED." 

150 PRINT"(2) AFTER THE REPORT, A ’7'WILL RE TYPED. ENTER THE" 
160 PRINT" NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING TH 
E" 

170 PRINT” NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YO"R DESC 
ENT" 

180 PRIMT" BY l FT/SEC." 

190 PRINT"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC/SEC 
OR" 

200 PRIMT" 30 UNITS OF FUEL PER SECOND." 

210 PRINT" (4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR ENGINE" 
220 PRINT" WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A 

it 

230 PRINT" REPORT OF YOU LANDING SPEED AND REM A®IN G FUEL." 

240 PRINT"(5) IF YOU RUN OUT OF FUEL, THE *?’ WILL NO LONGER APP 
EAR," 

250 PRINT" BUT YOUR SECOMD-BY-SECOND REPORT WILL CONTINUE UNT 
IL" 

260 PRINT" YOU CONTACT THE LUNAR SURFACE.": PRINT 
2^0 INPUT"PUSH RETURN WHEN READY":0$ 

280 PRINTCHRSC12) 

290 PR INT"B EG IMN IMG LANDING PROCEDURE.": PRIST 

300 PRIMT"G 0 0 D LUC 1 '!!!" 

310 PRINT 

320 PRINT"SEC Fcgy SPEED FUEL PLOT OF DISTANCE" 

330 PRIMT 
340 T30 
350 H=500 
360 V = 5O 
370 F=150 

380 PRINT T : T AB C 4 ) : H : T A3 ( 1 2): V; T AB ( 20) ; F ; 

390 PRINT TAB(25);CHRS(163) : 

400 PRINT TAR(H/15+26):CHRS(159):CHRS(15®) 





’ 410 IN PUTS 

420 IF 3<0 THEM 570 
430 IF 8>30 THEM 3=30 
440 IF 3> r THEM 3 = 3 
450 V 1 = '/-B+5 
46 0 F = 3 -B 
4 70 W=H-.5*(V+V1 ) 

433 IF H<=0 THEM 590 
490 T =T+1 
530 ',/ = './1 

510 IF 3>0 THEN 330 
520 IF 3=0 THEN 540 
530 PRINT"****OUT OF FUEL****" 

540 PRINT T: T 48 (4);H;T AB(12): U: T 43 (2 0):F: 

550 PRINT TAB (25);CHR$(163); 

560 PRINT T4B(H/15+26) :CHR$(159) :CHR$M53) 

570 B = 0 
530 GOTO 450 

590 PR INT"****C0NT4CT**** *' 

600 H = H+.5*C'/+5/l ) 

610 IF 3=5 THEM 640 

620 D=(-V+SQR(V*V+H*<10-2*3)))/(5-3) 

630 GOTO 650 
640 D = H/’/ 

650 Vl=V+(5-3)*D 

660 PRINT"TOUCHDOWN 4T";T+D:"SECONDS." 

670 PRINT-LANDING VELOCITY:”:'/1;" FEET/SEC." 

630 PRIM TF : ” UN ITS OF P*»JEL 3EM AIMING." 

690 IF V1<>0 THEN 730 

700 PRINT”CONGRATULATIONS! A PERFECT LANDING!” 

710 PR I NT "YOUR LICENSE WILL 3E RENEWED.LATER" 

720 GOTO 760 

730 IF A8S(V1)<2.5 THEN 340 

740 PRINT"******SORRY, BUT YOU BLEW IT!!!!!" 

750 PRINT"CONDOLENCES TO YOUR N^YJ OF YIN" 

760 PR I NT:PRINT:PRINT 

770 PRINT"ANOTHER MISSION? (Y/N) 

780 INPUT Z$ 

790 IF Z$ = "N" THEM 310 
300 GOTO 230 

310 PR I NT"CONTROL CENTRAL, OUT, SO LONG" 

320 PRINT:PRINT:PRIM T:PRINT 
830 GOTO 370 

340 PRINT"TOUCH DOWN WAS A LITTLE ROUGH, 3!JT YOU S^R'^VED 1 ? " 

350 PRINT:PRINT:PR INT 

360 GOTO 770 

370 END 

READY 





j. 


10 REM CRAPS BY DAVE BRISTOR 

20 REM WRITTEN SPRING 1976 

30 REM REVISED SUMMER 1979 

40 REM INITIALIZE RANDOM NUMBER GENERATOR 

50 D=RND(-RND<5)) 

50 PRINT CHRSC12) 

70 PR I NT : PR IN T" ***CRAPS*** 

S0 PRINT s PRIM T”DO YOU NEED INSTRUCTIONS "s 

90 INPUT 4$:IE LEFT$(4$,1)<>"N" THEM GOSUB630 tGOTO 1 1 0 

100 PRINT :PRINT"OKAY THEN, I’M GAME. 

110 C = 1 :M = 0 

120 REM INPUT LOOP TO LINE 190 
130 PRINT "TYPE ROLL "; 

140 INPUT R$:IF RS="ROLL" THEN M=0:GOTO210 
150 M = M+1 

150 ON M GOTO 170 ,130,190 

170 PRINT:PR I NT"PLEASE ROLL "::GOTO140 

130 PRINT : PRINT"I SAID ROLL!!! "::GOTO140 

190 PRINT :PRINT"OKAY THEN, I QUIT!!!!!!":GOTO790 

200 REM ROLL DICE 

210 X = IMT(RND(n*5+l) 

220 Y=INT(RN0(l)*6+t) 

230 S:X+Y 

240 IF C=1 THEN PST:S 
250 GCSUB340 

250 REM CHECK FOR WIN 

270 IF C=1 AND <S = 7 OR S = i 15 THEN400 

230 IF C>1 AMD S=FST THEN 400 

290 REM CHECK FOR LOSE 

300 IF C=1 AND (S = 2 OR S=3 OR S=!2) THEN470 

310 IF C»1 AND S = 7 THEN 470 

320 C=C+t 

330 GOTOl30 

340 REM PRINT ROLL SUBROUTINE 

350 IF S=3 OR S=11 THEN GOTO330 

560 PRINT SPRINT"THAT'S A":X;"AND A":Y:", WHICH MAkES FOR A";S 
370 GOTO390 

330 PRINT SPRINT"LOOKS LIKE A" : X:”4ND 4 ":Y:"-A TOTAL CF”sS 
390 RETURN 

400 REM ***t.;iM*** 

410 PRINTsPRINT" YOU WON!!!! 

420 IF C<3 THEN PRIN T:PRI NT"L'JCkY RINGERS, D'JDE"sGOTO450 
430 IF C<6 THEN PRIMT:PRINT"NOT BAD FOR AN AMATEUR"sGOTO450 
440 PRINT SPRINT"WELL P IN ALLY ! AT LEAST YOU WON."sGOTO450 
450 PRINT:PRINT"YOU HIT IT LUCKY ON ROLL NUMBER"sC 

460 GOTO530 _ 

470 REM **LOST*** 

430 PRINTsPRINT" AHA-YOU LOSE! 

490 IF C<3 THEN PRINT:PRINT"TH4T DIDN’T TAKE LONG, DID IT ?":GCT 
0520 

500 IF C<5 THEN PRINT :PRINT"KEEP UP THE GOOD WORK, PAL":GOTO520 
510 PRINT sPRINT"DOWN THE DRAIN AFTER ALL THAT!"sG0T0520 
520 PRINTsPPINT-YOU BLEW IT ON ROLL"sC 
530 REM ***ROLL NUMBER*** 

540 IF C<3 THEN PRINTsPRINT"TRY AGAIN, HOTSHOT ";:GOTO570 

550 IF C<6 THEN PRINT:PRINT"WHY NOT GIVE IT ANOTHER TRY ”::G0T05 

70 

560 PRINTsPR INT"ONCE MORE "::GOTO570 
570 INPUT A$ 

530 IF LEFT$(A$,1)<>"N" THENl10 

590 PRINT:PRINT"OKAY, THANKS FOR PLAYING. BYE! 

500 PRINT 
610 END 

620 REM INSTRUCTIONS 

630 PRINT CHR$(12) 

640 PRINT 

650 PRINT” CRAPS IS A DICE GAME. YOU wIN OR LOSE DEPENDING 
660 PRINT"ON WHAT YOU ROLL. 

670 PRINT 

630 PRINT" TO WIN, JUST ROLL A 7 OR AN 11 ON YOUR FIRST 
690 PRINT"ROLL CHA!), OR ROLL YOUR FIRST NUMBER ON ANY 
700 PR INT"SUCCEEDING ROLL. 

710 PRINT 

720 PRINT" TO LOSE, MAKE YOUR FIRST ROLL A 2, A 3, OR A 12. 

730 PRIMT"OR, YOU CAN LOSE BY ROLLING A 7 ANY TIME AFTER 
740 PR I NT"YOUR FIRST ROLL. NOW ISN’T THAT EASY 7 
750 PRINT 

760 PRINT" GET READY NOW, ’CAUSE HERE WE GO... 

770 PRINT 
730 RETURN 
790 END 
READY 




